(kbd-macro-query): Pass proper format string to message.

diff --git a/lisp/macros.el b/lisp/macros.el
index 69a95a35051e4c6ec68a56accf5c2bb25df3ea8f..5bf6560e5e657fec3705260828997156f9cd64f5 100644 (file)
--- a/lisp/macros.el
+++ b/lisp/macros.el
@@ -195,7 +195,7 @@ Your options are: \\<query-replace-map>
        (while loop
          (let ((key (let ((executing-macro nil)
                           (defining-kbd-macro nil))
-                      (message msg)
+                      (message "%s" msg)
                       (read-event)))
                def)
            (setq key (vector key))